home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / perl5 / Config.pm < prev    next >
Encoding:
Perl POD Document  |  1995-07-03  |  9.2 KB  |  482 lines
  1. package Config;
  2. require Exporter;
  3. @ISA = (Exporter);
  4. @EXPORT = qw(%Config);
  5.  
  6. $] == 5.000 or die sprintf
  7.     "Perl lib version (5.000) doesn't match executable version (%.3f)\n", $];
  8.  
  9. # This file was created by configpm when Perl was built. Any changes
  10. # made to this file will be lost the next time perl is built.
  11.  
  12. ##
  13. ## This file was produced by running the Configure script. It holds all the
  14. ## definitions figured out by Configure. Should you modify one of these values,
  15. ## do not forget to propagate your changes by running "Configure -der". You may
  16. ## instead choose to run each of the .SH files by yourself, or "Configure -S".
  17. ##
  18. #
  19. ## Configuration time: Thu Mar 30 16:56:09 EST 1995
  20. ## Configured by: contrib
  21. ## Target system: sco_sv roc 3.2 2 i386 
  22. #
  23.  
  24. $config_sh=<<'!END!OF!CONFIG!';
  25. dynamic_ext='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
  26. extensions='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
  27. static_ext='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
  28. osname='sco_sv'
  29. osvers='3.2'
  30. archlib='/usr/skunk/lib/perl5'
  31. ccflags='-DNO_PROTOTYPE -D_NO_PROTO'
  32. cppflags='-DNO_PROTOTYPE -D_NO_PROTO'
  33. intsize='4'
  34. libpth='/lib /usr/lib /usr/ccs/lib /usr/local/lib'
  35. sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CLD PWR WINCH'
  36. so='so'
  37. sharpbang='#!'
  38. shsharp='true'
  39. startsh='#!/bin/sh'
  40. Author=''
  41. CONFIG='true'
  42. Date='$Date'
  43. Header=''
  44. Id='$Id'
  45. Locker=''
  46. Log='$Log'
  47. Mcc='Mcc'
  48. PATCHLEVEL='0'
  49. RCSfile='$RCSfile'
  50. Revision='$Revision'
  51. Source=''
  52. State=''
  53. afs='false'
  54. alignbytes='8'
  55. aphostname=''
  56. archlibexp='/usr/skunk/lib/perl5'
  57. archname='sco_sv'
  58. awk='awk'
  59. bash=''
  60. bin='/usr/skunk/bin'
  61. binexp='/usr/skunk/bin'
  62. bison='bison'
  63. byacc='byacc'
  64. byteorder='1234'
  65. c='\c'
  66. castflags='0'
  67. cat='cat'
  68. cc='cc'
  69. cccdlflags='-dy -KPIC'
  70. ccdlflags=''
  71. cf_by='contrib'
  72. cf_time='Thu Mar 30 16:56:09 EST 1995'
  73. chgrp=''
  74. chmod=''
  75. chown=''
  76. clocktype='clock_t'
  77. compress=''
  78. contains='grep'
  79. cp='cp'
  80. cpio=''
  81. cpp='cpp'
  82. cpp_stuff='42'
  83. cpplast='-'
  84. cppminus='-'
  85. cpprun='cc -E'
  86. cppstdin='cc -E'
  87. cryptlib=''
  88. csh='csh'
  89. d_Gconvert='gcvt((x),(n),(b))'
  90. d_access='define'
  91. d_alarm='define'
  92. d_archlib='undef'
  93. d_attrib='undef'
  94. d_bcmp='define'
  95. d_bcopy='define'
  96. d_bsdpgrp='undef'
  97. d_bzero='define'
  98. d_casti32='undef'
  99. d_castneg='define'
  100. d_charsprf='undef'
  101. d_charvspr='undef'
  102. d_chown='define'
  103. d_chroot='define'
  104. d_chsize='undef'
  105. d_closedir='define'
  106. d_const='define'
  107. d_crypt='define'
  108. d_csh='undef'
  109. d_cuserid='define'
  110. d_dbl_dig='define'
  111. d_difftime='define'
  112. d_dirnamlen='undef'
  113. d_dlerror='define'
  114. d_dlopen='define'
  115. d_dlsymun='undef'
  116. d_dosuid='undef'
  117. d_drem='undef'
  118. d_dup2='define'
  119. d_eunice='undef'
  120. d_fchmod='define'
  121. d_fchown='define'
  122. d_fcntl='define'
  123. d_fd_macros='define'
  124. d_fd_set='define'
  125. d_fds_bits='define'
  126. d_fgetpos='define'
  127. d_flexfnam='define'
  128. d_flock='undef'
  129. d_fmod='define'
  130. d_fork='define'
  131. d_fpathconf='define'
  132. d_fsetpos='define'
  133. d_getgrps='define'
  134. d_gethent='define'
  135. d_gethname='undef'
  136. d_getlogin='define'
  137. d_getpgrp2='undef'
  138. d_getpgrp='define'
  139. d_getppid='define'
  140. d_getprior='define'
  141. d_group='undef'
  142. d_htonl='define'
  143. d_index='undef'
  144. d_isascii='define'
  145. d_killpg='define'
  146. d_link='define'
  147. d_linuxstd='undef'
  148. d_locconv='define'
  149. d_lockf='define'
  150. d_lstat='define'
  151. d_mblen='define'
  152. d_mbstowcs='define'
  153. d_mbtowc='define'
  154. d_memcmp='define'
  155. d_memcpy='define'
  156. d_memmove='define'
  157. d_memset='define'
  158. d_mkdir='define'
  159. d_mkfifo='define'
  160. d_mktime='define'
  161. d_msg='define'
  162. d_msgctl='define'
  163. d_msgget='define'
  164. d_msgrcv='define'
  165. d_msgsnd='define'
  166. d_mymalloc='undef'
  167. d_nice='define'
  168. d_oldsock='undef'
  169. d_open3='define'
  170. d_passwd='undef'
  171. d_pathconf='define'
  172. d_pause='define'
  173. d_phostname='undef'
  174. d_pipe='define'
  175. d_portable='define'
  176. d_pwage='define'
  177. d_pwchange='undef'
  178. d_pwclass='undef'
  179. d_pwcomment='define'
  180. d_pwexpire='undef'
  181. d_pwquota='undef'
  182. d_readdir='define'
  183. d_readlink='define'
  184. d_rename='define'
  185. d_rewinddir='define'
  186. d_rmdir='define'
  187. d_safebcpy='define'
  188. d_safemcpy='undef'
  189. d_seekdir='define'
  190. d_select='define'
  191. d_sem='define'
  192. d_semctl='define'
  193. d_semget='define'
  194. d_semop='define'
  195. d_setegid='define'
  196. d_seteuid='define'
  197. d_setlinebuf='undef'
  198. d_setlocale='define'
  199. d_setpgid='define'
  200. d_setpgrp2='undef'
  201. d_setpgrp='define'
  202. d_setprior='define'
  203. d_setregid='define'
  204. d_setresgid='undef'
  205. d_setresuid='undef'
  206. d_setreuid='define'
  207. d_setrgid='undef'
  208. d_setruid='undef'
  209. d_setsid='define'
  210. d_shm='define'
  211. d_shmat='define'
  212. d_shmatprototype='define'
  213. d_shmctl='define'
  214. d_shmdt='define'
  215. d_shmget='define'
  216. d_socket='define'
  217. d_sockpair='define'
  218. d_statblks='define'
  219. d_stdstdio='define'
  220. d_strchr='define'
  221. d_strcoll='define'
  222. d_strctcpy='define'
  223. d_strerrm='strerror(e)'
  224. d_strerror='define'
  225. d_strxfrm='define'
  226. d_suidsafe='undef'
  227. d_symlink='define'
  228. d_syscall='define'
  229. d_sysconf='define'
  230. d_sysernlst=''
  231. d_syserrlst='define'
  232. d_system='define'
  233. d_tcgetpgrp='define'
  234. d_tcsetpgrp='define'
  235. d_telldir='define'
  236. d_time='define'
  237. d_times='define'
  238. d_truncate='define'
  239. d_tzname='define'
  240. d_umask='define'
  241. d_uname='define'
  242. d_vfork='undef'
  243. d_void_closedir='undef'
  244. d_voidsig='define'
  245. d_voidtty=''
  246. d_volatile='define'
  247. d_vprintf='define'
  248. d_wait4='undef'
  249. d_waitpid='define'
  250. d_wcstombs='define'
  251. d_wctomb='define'
  252. d_xenix='undef'
  253. date='date'
  254. defvoidused='15'
  255. direntrytype='struct dirent'
  256. dlext='none'
  257. dlsrc='dl_none.xs'
  258. echo='echo'
  259. egrep='egrep'
  260. emacs=''
  261. eunicefix=':'
  262. expr='expr'
  263. find='find'
  264. flex=''
  265. fpostype='fpos_t'
  266. gcc=''
  267. gccversion=''
  268. gidtype='gid_t'
  269. glibpth='/usr/shlib  /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/local/lib '
  270. grep='grep'
  271. groupcat=''
  272. groupstype='gid_t'
  273. h_fcntl='true'
  274. h_sysfile='false'
  275. hint='previous'
  276. hostcat='cat /etc/hosts'
  277. huge=''
  278. i_bsdioctl=''
  279. i_db='undef'
  280. i_dbm='define'
  281. i_dirent='define'
  282. i_dld='undef'
  283. i_dlfcn='define'
  284. i_fcntl='define'
  285. i_float='define'
  286. i_gdbm='undef'
  287. i_grp='define'
  288. i_limits='define'
  289. i_malloc='define'
  290. i_math='define'
  291. i_memory='undef'
  292. i_ndbm='define'
  293. i_neterrno='undef'
  294. i_niin='define'
  295. i_pwd='define'
  296. i_sgtty='undef'
  297. i_stdarg='define'
  298. i_stddef='define'
  299. i_stdlib='define'
  300. i_string='define'
  301. i_sysdir='define'
  302. i_sysfile='undef'
  303. i_sysfilio='undef'
  304. i_sysin='undef'
  305. i_sysioctl='define'
  306. i_sysndir='undef'
  307. i_sysparam='define'
  308. i_sysselct='define'
  309. i_syssockio=''
  310. i_systime='define'
  311. i_systimek='undef'
  312. i_systimes='define'
  313. i_termio='undef'
  314. i_termios='define'
  315. i_time='define'
  316. i_unistd='define'
  317. i_utime='define'
  318. i_varargs='undef'
  319. i_varhdr='stdarg.h'
  320. i_vfork='undef'
  321. incpath=''
  322. inews=''
  323. installarchlib='/usr/skunk/lib/perl5'
  324. installbin='/usr/skunk/bin'
  325. installmansrc='/usr/skunk/man/man1'
  326. installprivlib='/usr/skunk/lib/perl5'
  327. installscript='/usr/skunk/bin'
  328. known_extensions='DB_File Fcntl GDBM_File NDBM_File ODBM_File POSIX SDBM_File Socket'
  329. ksh=''
  330. large=''
  331. lddlflags='-dy -G'
  332. ldflags=''
  333. less=''
  334. libc='/usr/ccs/lib/libc.so'
  335. libs='-lsocket -lnsl -lndbm -ldbm -lmalloc -ldl -lld -lm -lc -lcrypt -lPW -lx'
  336. libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m c cposix posix ndir dir crypt ucb bsd BSD PW x'
  337. line='line'
  338. lint=''
  339. lkflags=''
  340. ln='ln'
  341. lns='/bin/ln -s'
  342. lp=''
  343. lpr=''
  344. ls='ls'
  345. lseektype='off_t'
  346. mail=''
  347. mailx=''
  348. make=''
  349. mallocobj=''
  350. mallocsrc=''
  351. malloctype='void *'
  352. manext='1'
  353. mansrc='/usr/skunk/man/man1'
  354. mansrcexp='/usr/skunk/man/man1'
  355. medium=''
  356. mips=''
  357. mips_type=''
  358. mkdir='mkdir'
  359. models='none'
  360. modetype='mode_t'
  361. more=''
  362. mv=''
  363. mydomain=''
  364. myhostname='roc.scocan.sco.com'
  365. myuname='sco_sv roc 3.2 2 i386 '
  366. n=''
  367. nm_opt='-p'
  368. nroff='nroff'
  369. optimize='-O'
  370. orderlib='false'
  371. package='perl5'
  372. passcat=''
  373. perl='perl'
  374. pg=''
  375. phostname='hostname'
  376. plibpth=''
  377. pmake=''
  378. pr=''
  379. prefix='/usr/skunk'
  380. privlib='/usr/skunk/lib/perl5'
  381. privlibexp='/usr/skunk/lib/perl5'
  382. prototype='define'
  383. randbits='15'
  384. ranlib=':'
  385. rm='rm'
  386. rmail=''
  387. runnm='true'
  388. scriptdir='/usr/skunk/bin'
  389. scriptdirexp='/usr/skunk/bin'
  390. sed='sed'
  391. selecttype='fd_set *'
  392. sendmail=''
  393. sh=''
  394. shar=''
  395. shmattype='void *'
  396. signal_t='void'
  397. sizetype='size_t'
  398. sleep=''
  399. smail=''
  400. small=''
  401. sockethdr=''
  402. socketlib=''
  403. sort='sort'
  404. spackage=''
  405. spitshell='cat'
  406. split=''
  407. ssizetype='ssize_t'
  408. stdchar='unsigned char'
  409. strings='/usr/include/string.h'
  410. submit=''
  411. sysman='/usr/man/man1'
  412. tail=''
  413. tar=''
  414. tbl=''
  415. test='test'
  416. timeincl='/usr/include/sys/time.h /usr/include/time.h '
  417. timetype='time_t'
  418. touch='touch'
  419. tr='tr'
  420. troff=''
  421. uidtype='uid_t'
  422. uname='uname'
  423. uniq='uniq'
  424. usedl='undef'
  425. usemymalloc='n'
  426. usenm='true'
  427. useposix='true'
  428. usevfork='false'
  429. usrinc='/usr/include'
  430. uuname=''
  431. vi=''
  432. voidflags='15'
  433. xlibpth='/usr/lib/386 /lib/386'
  434. yacc='/bin/yacc'
  435. yaccflags=''
  436. zcat=''
  437. !END!OF!CONFIG!
  438.  
  439.  
  440. tie %Config, Config;
  441. sub TIEHASH { bless {} }
  442. sub FETCH { 
  443.     # check for cached value (which maybe undef so we use exists not defined)
  444.     return $_[0]->{$_[1]} if (exists $_[0]->{$_[1]});
  445.  
  446.     my($value); # search for the item in the big $config_sh string
  447.     return undef unless (($value) = $config_sh =~ m/^$_[1]='(.*)'\s*$/m);
  448.  
  449.     $value = undef if $value eq 'undef'; # So we can say "if $Config{'foo'}".
  450.     $_[0]->{$_[1]} = $value; # cache it
  451.     return $value;
  452. }
  453.  
  454. sub FIRSTKEY {
  455.     $prevpos = 0;
  456.     my $key;
  457.     ($key) = $config_sh =~ m/^(.*)=/;
  458.     $key;
  459. }
  460.  
  461. sub NEXTKEY {
  462.     my ($pos, $len);
  463.     $pos = $prevpos;
  464.     $pos = index( $config_sh, "\n", $pos) + 1;
  465.     $prevpos = $pos;
  466.     $len = index( $config_sh, "=", $pos) - $pos;
  467.     $len > 0 ? substr( $config_sh, $pos, $len) : undef;
  468. }
  469.  
  470. sub EXISTS{ 
  471.      exists($_[0]->{$_[1]})  or  $config_sh =~ m/^$_[1]=/m; 
  472. }
  473.  
  474. sub readonly { die "\%Config::Config is read-only\n" }
  475.  
  476. sub STORE { &readonly }
  477. sub DELETE{ &readonly }
  478. sub CLEAR { &readonly }
  479.  
  480.  
  481. 1;
  482.